Tiger Disk 115/Tiger_Disk_115_2003_Tiger-Crew-Disk_de_Side_B.d64/hires->sprite-l.

Commodore BASIC | 2003-01-01 | 1.3 KB | 27 lines

1 ifa=0thenz=peek(186)
2 poke53280,11:poke53281,11:print"[147] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]
3 a$[178]"syshires to sprite - loader"
4 [153]" peek"[163]38)"peek":[153]" peek"[163]20[171]([195](a$)[173]2))""a$"wait"[163]38)"peek"
5 [153]" peek"[163]38)"peek":[153]" /lenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenlenexp
6 ifa=1then11
7 print"   name des koala-bildes ?":print"   ohne '[193][146]pic' eingeben!"
8 ifa=0thena=1:input"   ";kb$:kb$="?pic "+kb$+"*"
9 input"   von welchem laufwerk laden   8[157][157][157]";lw$:z1=val(lw$)
10 loadkb$,z1,1
11 print"   anleitung ?"
12 getan$:ifan$<>"j"andan$<>"n"then12
13 ifan$="n"then23
14 print"[147]     hires to sprite - anleitung:"
15 print"nach tastendruck wird nach dieser an-"
16 print"leitung das hauptprogramm geladen. nach dem start kannst du mittels"
17 print"cursor-tasten und den zeichen 1,2,und s farben fuer das sprite einstellen."
18 print"mit run/stop kommst du zur darstellung  der geladenen grafik."
19 print"mittels joystick in port 2 waehlst du   einen bildausschnitt, den du mit"
20 print"space bestaetigst. - durch run/stop     kommst du wieder zurueck."
21 print"das dargestellte sprite kannst du dann  nach shift+s auf laufwerk 8"
22 print"speichern."
23 print"bitte tiger-disk[146] in laufwerk"z"legen und            taste druecken!"
24 poke198,0:wait198,1:poke198,0
25 print"[147][151]load"chr$(34)"hires to sprite*"chr$(34)","z"[145][145][145]"
26 poke631,13:poke632,82:poke633,85:poke634,78:poke635,13:poke198,5:end